home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Yerk 3.6.6 / Module source / qPrint < prev    next >
Encoding:
Text File  |  1990-12-22  |  1.2 KB  |  18 lines  |  [TEXT/YERK]
  1. \ qprint - quick printer for Yerk source files
  2. \  4/24/86  rfd re-written to handle Mocwrite 4.2a tabs
  3. \  9/19/86  cdn re-written while handling tabs in grep
  4. \  9/01/88    rfl date now revision date - must use revised date source
  5. \  9/13/88    rfl    added getfileinfo:
  6.  
  7. :Module qpMod
  8.  
  9. // date
  10.  
  11. : .footer  pcr pcr  5  spaces 
  12.      ." Yerk source file: "   getName: topFile mfsname ptype
  13.      3 spaces topfile 76 + @ put: sysdate ." Rev: " print: sysDate
  14.         7 spaces ." Page"  . pcr np ;
  15.  
  16. String linBuf
  17.  
  18. \ get file and prin